home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
EnigmA Amiga Run 1995 October
/
EnigmA AMIGA RUN 01 (1995)(G.R. Edizioni)(IT)[!][issue 1995-10][Aminet 7].iso
/
Aminet
/
comm
/
misc
/
avmNfax1_33.lha
/
AVMSuite
/
rexx
/
usebracket.avm
< prev
next >
Wrap
Text File
|
1994-06-24
|
608b
|
34 lines
/* */
parse upper arg server commandToDo otherargs
/* select the server */
address value server
/* use the server */
'use'
/* use failed, then someone else is using the server, and we shouldn't
continue */
if rc ~= 0 then exit
'requiredevice' 'telephoneline'
avmbusy = getclip('AVMBusy')
if avmbusy = "" then call setclip('AVMBusy', '1')
else call setclip('AVMBusy', avmbusy + 1)
/* run the command */
address rexx commandToDo otherargs
/* voice mode */
'requiremode' 'voice'
'flushphonebuffer'
avmbusy = getclip('AVMBusy')
call setclip('AVMBusy', avmbusy - 1)
/* unuse the server */
'unuse'
exit